<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in</name>
<id>-1</id>
<cardCount>1</cardCount>
<cardID>2848</cardID>
<listID>2197</listID>
<cantModify><false /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>416</width>
<height>240</height>
</cardSize>
<script>-------------------------------------------------------------Copy these handlers. Don't forget to do the windowNamesfunction, and the closeStack and openStack handlers as well.-------------------------------------------------------------on moveWindow--By: Ben Diebold--Date: 2/28/91--Notes: System message to tell when a window was moved.-- We need to know the rect before it was moved-- (oldCardRect), and the rect after it moves. Then-- we can pass the difference to updateWindows by way-- of figureDelta.global newCardRect, oldCardRectif newCardRect is emptythen put rect of the card window into newCardRectput newCardRect into oldCardRectput the rect of the card window into newCardRectupdatewindows figureDelta(newCardRect,oldCardRect)pass moveWindowend moveWindowon updateWindows wMovement--By: Ben Diebold--Date: 2/28/91--Notes: wMovement is a two item list that represents-- the horizontal and vertical movement of the windows.-- A positive horizontal value moves the windows right, and-- a positive vertical value moves the windows down.-- Normally this handler will get it's wMovement parameters-- from the figureDelta function, but it doesn't have to.put windows() into activeWindowsrepeat with i = 1 to the number of lines of activeWindowsif line i of activeWindows is in windowNames() thenput rect of window line i of activeWindows into windowRectset rect of window (line i of activeWindows) to ¬item 1 of windowRect + item 1 of wMovement &","&¬item 2 of windowRect + item 2 of wMovement &","&¬item 1 of windowRect + item 1 of wMovement + 34 &","&¬item 2 of windowRect + item 2 of wMovement + 34end ifend repeatend updateWindowsfunction figureDelta newCardRect,oldCardRect--By: Ben Diebold--Date: 2/18/91--Notes: Function gets two card rects, and figures the amount of-- movement between them.put item 1 of newCardRect - item 1 of oldCardRect into dLeftput item 2 of newCardRect - item 2 of oldCardRect into dTopput dLeft&","&dTop into wMovementreturn wMovementend figureDeltaon hideColorButtonslock screenrepeat with i = 1 to the number of items of windowNames()if item i of windowNames() is in windows()then close window (item i of windowNames())end repeatunlock screenend hideColorButtonson openStackglobal newCardRectput the rect of card window into newCardRectend openStackon closeStackhidecolorbuttonsend closeStackon mouseUpInPicture wNameanswer wNameend mouseUpInPicturefunction windowNamesreturn "Banana 2000,Bomb,Books I,Books II,Broken Disk,Bugs Bunny,"&¬"Calvin,Chick,Clock,Color Screen,Compass,Cowdog,Daffy Duck,"&¬"Daffy Duck II,Disk,Dragon,Earth,Empty Trash,Facade,"&¬"Fractal,Fractal Doc,Full Trash,Green Mac,Hard Drive,Hobbes,Lady,"&¬"Letters,Mac II With Apple,Mac Logo,Mac With Apple,Oscar,"&¬"Palette,Pancho Pistolas,Porky Pig,Resedit,Rooster,Sherlock,"&¬"Smelly Trash,Sylvester,Tasmanian Devil,Tweetie,Yosemite Sam"end windowNames--------------------------------------------------------------------------------------------------------------------------on dcbdisplaycolorbuttonsend dcbon sedit script of this stackend son hcbhidecolorbuttonsend hcbUnused stuff-- on displayColorButtons-- get rect of card window-- put item 4 of it - item 2 of it into wHeight-- put 35 into wLeft-- put wHeight - 40 into wTop-- put wLeft + 34 into wRight-- put wTop + 34 into wBottom-- put 1 into columnNumber-- put windowNames() into availableWindows-- repeat 16-- put any item of availableWindows into windowName-- put offset(windowName,availableWindows) into startChar-- put startChar + length(windowName) into endChar-- delete char startChar to endChar of availableWindows-- if columnNumber mod 4 = 1 then-- add 35 to wTop-- add 35 to wBottom-- put item 1 of oldRect into wLeft-- put wLeft + 34 into wRight-- else-- add 35 to wLeft-- add 35 to wRight-- end if-- put wLeft&","&wTop&","&wRight&","&wBottom into newRect-- picture windowName,resource,rect,false,4-- set the rect of window windowName to newRect-- show window windowName-- add 1 to columnNumber-- end repeat-- end displayColorButtons</script>
